home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 19 / Amiga Plus Leser CD 19.iso / Online / AmigaTalk / examples / copy.st < prev    next >
Text File  |  1998-09-30  |  490b  |  34 lines
  1. Class Main
  2. | i j k l |
  3. [
  4.    main
  5.       i <- Test new.
  6.       i set: 17.
  7.       j <- Test new.
  8.       j set: i.
  9.       k <- j deepCopy.
  10.       l <- j shallowCopy.
  11.       i set: 12.
  12.       k print.
  13.       l print.
  14.       i <- Test new.
  15.       i set: 17.
  16.       j <- #(2).
  17.       j at: 1 put: i.
  18.       k <- j deepCopy.
  19.       l <- j shallowCopy.
  20.       i set: 12.
  21.       k print.
  22.       l print.
  23. ]
  24. Class Test
  25. | var |
  26. [
  27.    printString
  28.       ^ 'test value ', var printString
  29. |
  30.    set: aVal
  31.       var <- aVal
  32. ]
  33.  
  34.